10 X=RND(-TI):S=54272:NP=0:DIMA$(9,5)
20 W$="FLASH CARDS"
30 POKE53281,0:PRINT"[147][158]"
40 FORI=0TO24:POKES+I,0:NEXT
50 FORI=1TO11:PRINT""SPC(14)LEFT$(W$,I):POKE53280,I:GOSUB1330:NEXT
60 FORI=0TO9:FORJ=1TO5
70 READA$(I,J)
80 NEXT:NEXT
90 PRINT"[147][129]              FLASH CARDS               "
100 PRINT""SPC(5)"[1] ADDITION
110 [153][166]5)"[2] SUBTRACTION
120 PRINTSPC(5)"[3] MULTIPLICATION
130 [153][166]5)"[4] DIVISION
140 PRINTSPC(5)"[5] MIXED
150 [161]K$:[139]K$[178]""[167]150
160 T1[178][197](K$):[139]T1[179]1[176]T1[177]5[167]90
170 T2[178]T1:[139]T1[178]5[167]T2[178]1
180 :
190 [153]"LOADPRINT             FLASH CARDS                "
200 [153]"  LOWER LIMIT OF PROBLEMS (0-9):";
210 [161]K$:[139]K$[178]""[167]210
220 R1[178][197](K$):[139]R1[179]0[176]R1[177]9[167]200
230 [153]K$
240 [153]"  UPPER LIMIT OF PROBLEMS (0-9):";
250 [161]K$:[139]K$[178]""[167]250
260 R2[178][197](K$):[139]R2[179]0[176]R[177]9[167]240
270 [153]K$
280 [139]R1[177]R2[167]190
290 R2[178]R2[170]1
300 [139]T1[178]4[176]T1[178]5[175]R1[178]0[175]R2[178]1[167]1460
310 :
320 [153]"LOADCONT             FLASH CARDS                "
330 [153]""[166]5)"PLAYING TIME (1-9 MIN): "
340 [161]K$:[139]K$[178]""[167]340
350 TM[178][197](K$):[139]TM[179]1[176]TM[177]9[167]320
360 TM[178]TM[172]100
370 [153]"LOADCLR             FLASH CARDS                "
380 [153]""[166]3)"PRESS FIREWAIT TO MOVE TO NEXT PROBLEM
390 PRINTSPC(3)"MOVE JOYTICK UP[146] FOR ANSWER
400 [129]T[178]1[164]2000:[130]
410 :
420 TI$[178]"000000"
430 [145]T1[141]1070,1120,1180,1230,1290
440 [145]T2[141]620,740,870,990
450 FB[178][194](56320)[175]16:FR[178]15[171]([194](56320)[175]15)
460 [139]FR[178]1[167][141]1390
470 [139][197](TI$)[177]TM[167]540
480 [139]FB[179][177]0[167]450
490 NP[178]NP[170]1:[141]1330
500 [139]FL[167]NP[178]NP[171]1
510 FL[178]0
520 [139][197](TI$)[179]TM[167]430
530 :
540 [153]"LOADCLR              FLASH CARDS               "
550 [153]""[166]11)"TIME:"TM[173]100"CMD:00 MIN"
560 [153][166]5)"# PROBLEMS:  "NP
570 [153][166]5)"PLAY AGAIN [Y/N]
580 GETK$:IFK$=""THEN580
590 IFK$="Y"THENRUN
600 SYS2048:END
610 :
620 PRINT"[147][154]         FLASH CARDS: ADDITION          "
630 FORI=1TO5:PRINTSPC(18)A$(X,I):NEXT
640 PRINT:PRINT
650 PRINTSPC(18)A$(Y,1)
660 PRINTSPC(18)A$(Y,2)
670 PRINTSPC(13)" [146]";SPC(4);A$(Y,3)
680 PRINTSPC(12)"   [146]";SPC(3);A$(Y,4)
690 PRINTSPC(13)" [146]";SPC(4);A$(Y,5)
700 PRINT
710 PRINTSPC(12)"           "
720 RETURN
730 :
740 PRINT"[147][153]        FLASH CARDS: SUBTRACTION        "
750 IFL=1THENFORI=1TO5:PRINTSPC(18)A$(Z,I):NEXT
760 IFL=2THENFORI=1TO5:PRINTSPC(11)A$(Z1,I)SPC(2)"[146]"A$(Z2,I):NEXT
770 PRINT:PRINT
780 PRINTSPC(18)A$(Y,1)
790 PRINTSPC(18)A$(Y,2)
800 PRINTSPC(18)A$(Y,3)
810 PRINTSPC(11)"   [146]";SPC(4);A$(Y,4)
820 PRINTSPC(18)A$(Y,5)
830 PRINT
840 PRINTSPC(10)"             "
850 RETURN
860 :
870 PRINT"[147][159]       FLASH CARDS: MULTIPLICATION      "
880 FORI=1TO5:PRINTSPC(18)A$(X,I):NEXT
890 PRINT:PRINT
900 PRINTSPC(18)A$(Y,1)
910 PRINTSPC(18)A$(Y,2)
920 PRINTSPC(12)"  [146]";SPC(3);A$(Y,3)
930 PRINTSPC(12)" [146]";SPC(3);A$(Y,4)
940 PRINTSPC(12)"  [146]";SPC(3);A$(Y,5)
950 PRINT
960 PRINTSPC(12)"           "
970 RETURN
980 :
990 PRINT"[147][158]         FLASH CARDS: DIVISION          "
1000 PRINTSPC(16)"               "
1010 PRINTSPC(16)" "
1020 IFL=1THENFORI=1TO5:PRINTSPC(9)A$(X,I);" [146]";A$(Z,I):NEXT
1030 IFL=2THENFORI=1TO5:PRINTSPC(9)A$(X,I);" [146]"A$(Z1,I)"[146] "A$(Z2,I):NEXT
1040 PRINTSPC(16)" "
1050 RETURN
1060 :
1070 X=INT(RND(1)*10)
1080 Y=INT(RND(1)*(R2-R1))+R1
1090 Z=X+Y
1100 RETURN
1110 :
1120 X=INT(RND(1)*10)
1130 Y=INT(RND(1)*(R2-R1))+R1
1140 Z=X+Y:Z$=STR$(Z):L=LEN(MID$(Z$,2))
1150 IFL=2THENZ1=VAL(LEFT$(Z$,2)):Z2=VAL(RIGHT$(Z$,1))
1160 RETURN
1170 :
1180 X=INT(RND(1)*10)
1190 Y=INT(RND(1)*(R2-R1))+R1
1200 Z=X*Y
1210 RETURN
1220 :
1230 X=INT(RND(1)*(R2-R1))+R1:IFX=0THEN1230
1240 Y=INT(RND(1)*10)
1250 Z=X*Y:Z$=STR$(Z):L=LEN(MID$(Z$,2))
1260 IFL=2THENZ1=VAL(LEFT$(Z$,2)):Z2=VAL(RIGHT$(Z$,1))
1270 RETURN
1280 :
1290 T2=INT(RND(1)*4)+1
1300 ONT2GOSUB1070,1120,1180,1230
1310 RETURN
1320 :
1330 POKES+24,15:POKES+6,240:POKES+4,17
1340 POKES+1,25:POKES,177
1350 FORT=1TO20:NEXT
1360 POKES+4,16
1370 RETURN
1380 :
1390 PRINT""SPC(12)"ANSWER:";
1400 IFT2=1THENPRINTZ
1410 IFT2=2THENPRINTX
1420 IFT2=3THENPRINTZ
1430 IFT2=4THENPRINTY
1440 FL=1:RETURN
1450 :
1460 PRINT"DIVISION BY ZERO NOT ALLOWED."
1470 PRINT"PLEASE START OVER BY PRESSING ANY KEY."
1480 GETK$:IFK$=""THEN1480
1490 RUN
1500 :
1510 DATA "     "
1520 DATA "  "
1530 DATA "  "
1540 DATA "  "
1550 DATA "     "
1560 :
1570 DATA "  "
1580 DATA "  "
1590 DATA "  "
1600 DATA "  "
1610 DATA "  "
1620 :
1630 DATA "     "
1640 DATA " "
1650 DATA "     "
1660 DATA " "
1670 DATA "     "
1680 :
1690 DATA "     "
1700 DATA " "
1710 DATA "   "
1720 DATA " "
1730 DATA "     "
1740 :
1750 DATA "  "
1760 DATA "  "
1770 DATA "     "
1780 DATA " "
1790 DATA " "
1800 :
1810 DATA "     "
1820 DATA " "
1830 DATA "     "
1840 DATA " "
1850 DATA "     "
1860 :
1870 DATA "     "
1880 DATA " "
1890 DATA "     "
1900 DATA "  "
1910 DATA "     "
1920 :
1930 DATA "     "
1940 DATA "[169] "
1950 DATA "[169] [146][169]"
1960 DATA "[169] [146][169] "
1970 DATA "  "
1980 :
1990 DATA "     "
2000 DATA "  "
2010 DATA "     "
2020 DATA "  "
2030 DATA "     "
2040 :
2050 DATA "     "
2060 DATA "  "
2070 DATA "     "
2080 DATA " "
2090 DATA "     "